﻿namespace Refunctor

open System.Windows
 
[<AutoOpen>]
module Message =    
    let showMessage(text,caption) =
        MessageBox.Show(text,caption,MessageBoxButton.OK,MessageBoxImage.Information) |> ignore

    let showError(text) =
        MessageBox.Show(text, "Error", MessageBoxButton.OK, MessageBoxImage.Error) |> ignore

    let showWarning(text) =
        MessageBox.Show(text, "Warning" ,MessageBoxButton.OK,MessageBoxImage.Warning) |> ignore

    let askQuestion(text,caption) = 
        MessageBox.Show(text, caption, MessageBoxButton.YesNo, MessageBoxImage.Question)
    

